home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / modsim3.vim < prev    next >
Encoding:
Text File  |  2001-05-11  |  3.9 KB  |  110 lines
  1. " Vim syntax file
  2. " Language:    Modsim III, by compuware corporation (www.compuware.com)
  3. " Maintainer:    Philipp Jocham <flip@sbox.tu-graz.ac.at>
  4. " Extension:    *.mod
  5. " Last Change:    2001 May 10
  6. "
  7. " 2001 March 24:
  8. "  - Modsim III is a registered trademark from compuware corporation
  9. "  - made compatible with Vim 6.0
  10. "
  11. " 1999 Apr 22 : Changed modsim3Literal from region to match
  12. "
  13. " very basic things only (based on the modula2 and c files).
  14.  
  15. if version < 600
  16.   " Remove any old syntax stuff hanging around
  17.   syn clear
  18. elseif exists("b:current_syntax")
  19.   finish
  20. endif
  21.  
  22.  
  23. " syn case match " case sensitiv match is default
  24.  
  25. " A bunch of keywords
  26. syn keyword modsim3Keyword ACTID ALL AND AS ASK
  27. syn keyword modsim3Keyword BY CALL CASE CLASS CONST DIV
  28. syn keyword modsim3Keyword DOWNTO DURATION ELSE ELSIF EXIT FALSE FIXED FOR
  29. syn keyword modsim3Keyword FOREACH FORWARD IF IN INHERITED INOUT
  30. syn keyword modsim3Keyword INTERRUPT LOOP
  31. syn keyword modsim3Keyword MOD MONITOR NEWVALUE
  32. syn keyword modsim3Keyword NONMODSIM NOT OBJECT OF ON OR ORIGINAL OTHERWISE OUT
  33. syn keyword modsim3Keyword OVERRIDE PRIVATE PROTO REPEAT
  34. syn keyword modsim3Keyword RETURN REVERSED SELF STRERR TELL
  35. syn keyword modsim3Keyword TERMINATE THISMETHOD TO TRUE TYPE UNTIL VALUE VAR
  36. syn keyword modsim3Keyword WAIT WAITFOR WHEN WHILE WITH
  37.  
  38. " Builtin functions and procedures
  39. syn keyword modsim3Builtin ABS ACTIVATE ADDMONITOR CAP CHARTOSTR CHR CLONE
  40. syn keyword modsim3Builtin DEACTIVATE DEC DISPOSE FLOAT GETMONITOR HIGH INC
  41. syn keyword modsim3Builtin INPUT INSERT INTTOSTR ISANCESTOR LOW LOWER MAX MAXOF
  42. syn keyword modsim3Builtin MIN MINOF NEW OBJTYPEID OBJTYPENAME OBJVARID ODD
  43. syn keyword modsim3Builtin ONERROR ONEXIT ORD OUTPUT POSITION PRINT REALTOSTR
  44. syn keyword modsim3Builtin REPLACE REMOVEMONITOR ROUND SCHAR SIZEOF SPRINT
  45. syn keyword modsim3Builtin STRLEN STRTOCHAR STRTOINT STRTOREAL SUBSTR TRUNC
  46. syn keyword modsim3Builtin UPDATEVALUE UPPER VAL
  47.  
  48. syn keyword modsim3BuiltinNoParen HALT TRACE
  49.  
  50. " Special keywords
  51. syn keyword modsim3Block PROCEDURE METHOD MODULE MAIN DEFINITION IMPLEMENTATION
  52. syn keyword modsim3Block BEGIN END
  53.  
  54. syn keyword modsim3Include IMPORT FROM
  55.  
  56. syn keyword modsim3Type ANYARRAY ANYOBJ ANYREC ARRAY BOOLEAN CHAR INTEGER
  57. syn keyword modsim3Type LMONITORED LRMONITORED NILARRAY NILOBJ NILREC REAL
  58. syn keyword modsim3Type RECORD RMONITOR RMONITORED STRING
  59.  
  60. " catch errros cause by wrong parenthesis
  61. " slight problem with "( *)" or "(* )". Hints?
  62. syn region modsim3Paren    transparent start='(' end=')' contains=ALLBUT,modsim3ParenError
  63. syn match modsim3ParenError ")"
  64.  
  65. " Comments
  66. syn region modsim3Comment1 start="{" end="}" contains=modsim3Comment1,modsim3Comment2
  67. syn region modsim3Comment2 start="(\*" end="\*)" contains=modsim3Comment1,modsim3Comment2
  68. " highlighting is wrong for constructs like "{  (*  }  *)",
  69. " which are allowed in Modsim III, but
  70. " I think something like that shouldn't be used anyway.
  71.  
  72. " Strings
  73. syn region modsim3String start=+"+ end=+"+
  74.  
  75. " Literals
  76. "syn region modsim3Literal start=+'+ end=+'+
  77. syn match modsim3Literal "'[^']'\|''''"
  78.  
  79. " Define the default highlighting.
  80. " For version 5.7 and earlier: only when not done already
  81. " For version 5.8 and later: only when an item doesn't have highlighting yet
  82. if version >= 508 || !exists("did_modsim3_syntax_inits")
  83.   if version < 508
  84.     let did_modsim3_syntax_inits = 1
  85.     command -nargs=+ HiLink hi link <args>
  86.   else
  87.     command -nargs=+ HiLink hi def link <args>
  88.   endif
  89.  
  90.   " The default methods for highlighting.  Can be overridden later
  91.   HiLink modsim3Keyword    Statement
  92.   HiLink modsim3Block        Statement
  93.   HiLink modsim3Comment1    Comment
  94.   HiLink modsim3Comment2    Comment
  95.   HiLink modsim3String        String
  96.   HiLink modsim3Literal    Character
  97.   HiLink modsim3Include    Statement
  98.   HiLink modsim3Type        Type
  99.   HiLink modsim3ParenError    Error
  100.   HiLink modsim3Builtin    Function
  101.   HiLink modsim3BuiltinNoParen    Function
  102.  
  103.   delcommand HiLink
  104. endif
  105.  
  106. let b:current_syntax = "modsim3"
  107.  
  108. " vim: ts=8 sw=2
  109.  
  110.